home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 2 / FFMCD02.bin / new / amigalibdisks / disk947 / newtool / install newtool < prev    next >
Encoding:
Text File  |  1993-12-21  |  1.6 KB  |  80 lines
  1. ; Installation script for NewTool
  2.  
  3. (transcript "Installing NewTool...")
  4.  
  5. (copylib
  6.         (prompt "Install WhatIs library.")
  7.         (help @copylib-help)
  8.         (source "LIBS/whatis.library")
  9.         (dest "libs:")
  10.         (confirm)
  11. )
  12.  
  13. (copylib
  14.         (prompt "Install ReqTools library.")
  15.         (help @copylib-help)
  16.         (source "LIBS/ReqTools.library")
  17.         (dest "libs:")
  18.         (confirm)
  19. )
  20.  
  21. (set name
  22.         (askdir
  23.                 (prompt "Install NewTool where?")
  24.                 (help @askdir-help)
  25.                 (default "C:")
  26.         )
  27. )
  28.  
  29. (copyfiles
  30.         (source "NewTool")
  31.         (dest name)
  32. )
  33.  
  34. (set prefs
  35.         (askchoice
  36.                 (prompt "Install NewTool prefs where?")
  37.                 (help @askchoice-help)
  38.                 (choices "ENV: and ENVARC:" "S" )
  39.                 (default 0)
  40.         )
  41. )
  42.  
  43. (if (= prefs 0)                           ; conditional test
  44.     (
  45.        (copyfiles
  46.                 (source "NewTool.prefs")
  47.                 (dest "ENV:")
  48.         )
  49.        (copyfiles
  50.                 (source "NewTool.prefs")
  51.                 (dest "ENVARC:")
  52.         )
  53.     )
  54.    (copyfiles
  55.             (source "NewTool.prefs")
  56.             (dest "S:")
  57.     )
  58. )                                     ; end of if
  59.  
  60. (set what
  61.         (askbool
  62.                 (prompt "Copy FileTypes to S:")
  63.                 (help "It's up to YOU.")
  64.                 (choices "Yes" "No")
  65.                 (default 0)
  66.         )
  67. )
  68.  
  69. (if (= what 1)                           ; conditional test
  70.    (copyfiles
  71.             (source "FileTypes")
  72.             (dest "S:")
  73.     )
  74. )
  75.  
  76. (set @default-dest name)
  77.  
  78. (exit)
  79.  
  80.